home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / autorob2.zip / AR.BTM next >
Text File  |  1993-06-22  |  13KB  |  502 lines

  1. setlocal
  2. set AP=%@PATH[%@SEARCH[ar.btm]]
  3. set rcd=%@PATH[%@SEARCH[robocomm.exe]]
  4. set rmd=%@PATH[%@SEARCH[robomail.exe]]
  5. set /R c:\arlst.lst
  6. set rmd2=c:\z\mail
  7. set ddup=HHINFNET
  8. alias spt scrput
  9. alias gam=goto amm
  10. alias gam2=goto amm2
  11. alias gtm goto main
  12. gosub %1
  13.  
  14. :Main
  15. cls
  16. gosub display
  17. @echo off
  18. :t2
  19. spt 23 3 bri whi on blu  Time is now:  %_time
  20. spt 23 57 bri whi on blu Today is:  %_Date
  21. set _cmd=NN
  22. inkey /w1 /K[QM123456789IDPLSERKC] %%_cmd
  23. iff "%_cmd"=="NN" then
  24. goto t2
  25. elseiff "%_cmd"=="Q" then
  26. cls
  27. spt 14 16 bri whi on blu Any other key returns to Autorobo Main Menu
  28. screen 12 20
  29. inkey Save configuration before Exit Y/N:  %%_cmd
  30. iff "%_cmd"=="Y" then
  31. set > c:\arlst.lst
  32. cls
  33. endlocal
  34. quit
  35. elseiff "%_cmd"=="n" then
  36. cls
  37. endlocal
  38. quit
  39. else
  40. gtm
  41. endiff
  42. elseiff "%_cmd"=="C" then
  43. cdd %rcd
  44. robocomm.exe
  45. gtm
  46. elseiff "%_cmd"=="M" then
  47. cdd %rmd
  48. Iff exist %rmd2\*.q?? then
  49. Robomail.exe /I
  50. gtm
  51. ELSE
  52. Robomail.exe
  53. gtm
  54. ENDIFF
  55. elseiff "%_cmd"=="S" then
  56. set > c:\arlst.lst
  57. gtm
  58. elseiff "%_cmd"=="L" then
  59. set /R c:\arlst.lst
  60. gtm
  61. elseiff "%_cmd"=="R" then
  62. goto run
  63. endiff
  64.  
  65. :amm
  66. set am=%_cmd
  67. if "%_cmd"=="I" set am=10
  68. if "%_cmd"=="d" set am=11
  69. if "%_cmd"=="K" set am=12
  70. if "%_cmd"=="p" set am=13
  71. cls
  72.  
  73. :amm2
  74. spt 23 3 bri whi on blu  Time is now:  %_time
  75. spt 23 57 bri whi on blu Today is:  %_Date
  76. iff "%am"=="10" then
  77. spt 2 27 bri whi on blu Import .qwk files setup
  78. elseiff "%am"=="13" then
  79. spt 2 27 bri whi on blu Pack Robocomm setup
  80. elseiff "%am"=="12" then
  81. spt 2 27 bri whi on blu Pack Robomail setup
  82. elseiff "%am"=="11" then
  83. spt 2 27 bri whi on blu Del Dups to %DDUP setup
  84. else
  85. spt 2 27 bri whi on blu Event %am:        %[an%am]         .
  86. endiff
  87. if "%[ad%am]" GT "%@date[01-01-80]" spt 4 43 bri whi on blu %@makedate[%[ad%am]]
  88. spt 4 27 bri whi on blu Date:
  89. if "%[at%am]" GT "%@time[00:00:00]" spt 5 43 bri whi on blu %@maketime[%[at%am]]
  90. spt 5 27 bri whi on blu Time:
  91. if "%[af&am]" != "N" spt 6 43 bri whi on blu %[AF%am]
  92. spt 6 27 bri whi on blu Active:
  93. iff %am LT 10 .and. "%[r%am]"=="/R" then
  94. spt 7 27 bri whi on blu Reset:          Y
  95. elseiff %am LT 10 .and. "%[r%am]" != "/R" then
  96. spt 7 27 bri whi on blu Reset:          N
  97. endiff
  98. echo off
  99. if %am LT 10 set FAP=%AP%arammenu.mnu
  100. if %am GT 9 set fap=%ap%arammen2.mnu
  101. set OPT=
  102. set OPT=%@SELECT[%fap,8,19,23,60 Agenda Setup Menu]
  103. set OPT=%@SUBSTR[%opt,1,9]
  104. iff "%OPT"=="" then
  105. gtm
  106. elseiff "%OPT"=="active me" then
  107. goto active
  108. elseiff "%OPT"=="agenda me" then
  109. echo off
  110. set OPT=
  111. set FAP=%AP%arevent.mnu
  112. set OPT=%@SELECT[%fap,8,19,24,60 Agenda Menu]
  113. set OPT=%@SUBSTR[%opt,1,9]
  114. set an%am=%opt
  115. gam2
  116. elseiff "%OPT"=="clear eve" then
  117. set an%am=
  118. set ad%am=
  119. set at%am=
  120. set AF%am=N
  121. set r%am=
  122. gam
  123. elseiff "%OPT"=="date menu" then
  124. goto date
  125. elseiff "%OPT"=="time menu" then
  126. goto time
  127. elseiff "%OPT"=="toggle re" then
  128. iff "%[R%am]"=="/R" then
  129. set R%am=
  130. gam2
  131. else set R%am=/R
  132. endiff
  133. gam2
  134. elseiff "%OPT"=="toggle ac" then
  135. iff "%[af%am]" != "A" then
  136. set af%am=A
  137. gam2
  138. else
  139. set af%am=N
  140. endiff
  141. gam2
  142. elseiff "%OPT"=="set all f" then
  143. set af%am=A
  144. set ad%am=%@date[%_date]
  145. set at%am=%@time[%_time]
  146. gam
  147. elseiff "%OPT"=="quit to d" then
  148. gtm
  149. endiff
  150. gam
  151.  
  152. :display
  153. drawbox 0 0 24 79 1 bri whi on blu
  154. drawhline 16 0 80 2 bri whi on blu
  155. drawhline 22 0 80 2 bri whi on blu
  156. drawvline 16 24 7 2 bri whi on blu
  157. spt 17 2 bri whi on blu Agenda
  158. spt 17 10 bri whi on blu un
  159. spt 17 9 bri gre on blu R
  160. spt 17 14 bri whi on blu ave
  161. spt 17 13 bri gre on blu S
  162. spt 17 19 bri whi on blu oad
  163. spt 17 18 bri gre on blu L
  164. spt 18 9 bri gre on blu 1-9
  165. spt 18 2 bri white on blu Setup
  166. spt 19 2 bri whi on blu Robo omm
  167. spt 19 6 bri gre on blu C
  168. spt 20 2 bri whi on blu Robo ail
  169. spt 20 6 bri gre on blu M
  170. spt 21 3 bri whi on blu uit to DOS
  171. spt 21 2 bri gre on blu Q
  172. spt 17 48 bri yel on blu Active
  173. spt 17 71 bri yel on blu Time
  174. spt 17 61 bri yel on blu Date
  175. spt 23 3 bri whi on blu  Time is now:  %_time
  176. spt 23 57 bri whi on blu Today is:  %_Date
  177. if "%af11" != "N" spt 18 51 bri yel on blu %af11
  178. spt 18 29 bri whi on blu el Dups %DDUP
  179. spt 18 28 bri gre on blu D
  180. if "%at11" GT "%@time[00:00:00]" spt 18 69 bri whi on blu %@maketime[%at11]
  181. if "%ad11" GT "%@date[01-01-80]" spt 18 59 bri whi on blu %@makedate[%ad11]
  182. if "%af13" != "N" spt 19 51 bri yel on blu %af13
  183. spt 19 29 bri whi on blu ack Robocomm
  184. spt 19 28 bri gre on blu P
  185. if "%at13" GT "%@time[00:00:00]" spt 19 69 bri whi on blu %@maketime[%at13]
  186. if "%ad13" GT "%@date[01-01-80]" spt 19 59 bri whi on blu %@makedate[%ad13]
  187. if "%af12" != "N" spt 20 51 bri yel on blu %af12
  188. spt 20 28 bri whi on blu Pac  Robomail
  189. spt 20 31 bri gre on blu K
  190. if "%at12" GT "%@time[00:00:00]" spt 20 69 bri whi on blu %@maketime[%at12]
  191. if "%ad12" GT "%@date[01-01-80]" spt 20 59 bri whi on blu %@makedate[%ad12]
  192. spt 21 29 bri whi on blu mp .qwk files
  193. spt 21 28 bri gre on blu I
  194. if "%af10" != "N" spt 21 51 bri yel on blu %af10
  195. if "%at10" GT "%@time[00:00:00]" spt 21 69 bri whi on blu %@maketime[%at10]
  196. if "%ad10" GT "%@date[01-01-80]" spt 21 59 bri whi on blu %@makedate[%ad10]
  197. spt 23 31 bri yel on blu Make selection:
  198. screen 23 48
  199.  
  200. spt 1 3 bri whi on blu Event 1:     %an1
  201. if "%af1" != "N" spt 1 12 bri yel on blu %af1
  202. if "%r1"=="/R" spt 1 13 bri yel on blu R
  203. spt 2 3 bri whi on blu Date:
  204. if "%ad1" GT "%@date[01-01-80]" spt 2 16 bri whi on blu %@makedate[%ad1]
  205. spt 3 3 bri whi on blu Time:
  206. if "%at1" GT "%@time[00:00:00]" spt 3 16 bri whi on blu %@maketime[%at1]
  207.  
  208. spt 5 3 bri whi on blu Event 2:     %an2
  209. if "%af2" != "N" spt 5 12 bri yel on blu %af2
  210. if "%r2"=="/r" spt 5 13 bri yel on blu R
  211. spt 6 3 bri whi on blu Date:
  212. if "%ad2" GT "%@date[01-01-80]" spt 6 16 bri whi on blu %@makedate[%ad2]
  213. spt 7 3 bri whi on blu Time:
  214. if "%at2" GT "%@time[00:00:00]" spt 7 16 bri whi on blu %@maketime[%at2]
  215.  
  216. spt 9 3 bri whi on blu Event 3:     %an3
  217. if "%af3" != "N" spt 9 12 bri yel on blu %af3
  218. if "%r3"=="/r" spt 9 13 bri yel on blu R
  219. spt 10 3 bri whi on blu Date:
  220. if "%ad3" GT "%@date[01-01-80]" spt 10 16 bri whi on blu %@makedate[%ad3]
  221. spt 11 3 bri whi on blu Time:
  222. if "%at3" GT "%@time[00:00:00]" spt 11 16 bri whi on blu %@maketime[%at3]
  223.  
  224. spt 13 3 bri whi on blu Event 4:     %an4
  225. if "%af4" != "N" spt 13 12 bri yel on blu %af4
  226. if "%r4"=="/r" spt 13 13 bri yel on blu R
  227. spt 14 3 bri whi on blu Date:
  228. if "%ad4" GT "%@date[01-01-80]" spt 14 16 bri whi on blu %@makedate[%ad4]
  229. spt 15 3 bri whi on blu Time:
  230. if "%at4" GT "%@time[00:00:00]" spt 15 16 bri whi on blu %@maketime[%at4]
  231.  
  232. spt 1 56 bri whi on blu Event 5:     %an5
  233. if "%af5" != "N" spt 1 65 bri yel on blu %af5
  234. if "%r5"=="/r" spt 1 66 bri yel on blu R
  235. spt 2 56 bri whi on blu Date:
  236. if "%ad5" GT "%@date[01-01-80]" spt 2 69 bri whi on blu %@makedate[%ad5]
  237. spt 3 56 bri whi on blu Time:
  238. if "%at5" GT "%@time[00:00:00]" spt 3 69 bri whi on blu %@maketime[%at5]
  239.  
  240. spt 5 56 bri whi on blu Event 6:     %an6
  241. if "%af6" != "N" spt 5 65 bri yel on blu %af6
  242. if "%r6"=="/r" spt 5 66 bri yel on blu R
  243. spt 6 56 bri whi on blu Date:
  244. if "%ad6" GT "%@date[01-01-80]" spt 6 69 bri whi on blu %@makedate[%ad6]
  245. spt 7 56 bri whi on blu Time:
  246. if "%at6" GT "%@time[00:00:00]" spt 7 69 bri whi on blu %@maketime[%at6]
  247.  
  248. spt 9 56 bri whi on blu Event 7:     %an7
  249. if "%af7" != "N" spt 9 65 bri yel on blu %af7
  250. if "%r7"=="/r" spt 9 66 bri yel on blu R
  251. spt 10 56 bri whi on blu Date:
  252. if "%ad7" GT "%@date[01-01-80]" spt 10 69 bri whi on blu %@makedate[%ad7]
  253. spt 11 56 bri whi on blu Time:
  254. if "%at7" GT "%@time[00:00:00]" spt 11 69 bri whi on blu %@maketime[%at7]
  255.  
  256. spt 13 56 bri whi on blu Event 8:     %an8
  257. if "%af8" != "N" spt 13 65 bri yel on blu %af8
  258. if "%r8"=="/r" spt 13 66 bri yel on blu R
  259. spt 14 56 bri whi on blu Date:
  260. if "%ad8" GT "%@date[01-01-80]" spt 14 69 bri whi on blu %@makedate[%ad8]
  261. spt 15 56 bri whi on blu Time:
  262. if "%at8" GT "%@time[00:00:00]" spt 15 69 bri whi on blu %@maketime[%at8]
  263.  
  264. spt 1 30 bri whi on blu Event 9:     %an9
  265. if "%af9" != "N" spt 1 39 bri yel on blu %af9
  266. if "%r9"=="/r" spt 1 40 bri yel on blu R
  267. spt 2 30 bri whi on blu Date:
  268. if "%ad9" GT "%@date[01-01-80]" spt 2 43 bri whi on blu %@makedate[%ad9]
  269. spt 3 30 bri whi on blu Time:
  270. if "%at9" GT "%@time[00:00:00]" spt 3 43 bri whi on blu %@maketime[%at9]
  271. return
  272.  
  273. :date
  274. spt 23 3 bri whi on blu  Time is now:  %_time
  275. spt 23 57 bri whi on blu Today is:  %_Date
  276. if "%[ad%am]" GT "%@date[01-01-80]" spt 4 43 bri whi on blu %@makedate[%[ad%am]]
  277. echo off
  278. set OPT=
  279. set FAP=%AP%ardate.mnu
  280. set OPT=%@SELECT[%fap,8,19,21,60 Date Menu]
  281. set OPT=%@SUBSTR[%opt,1,7]
  282. iff "%OPT"=="" then
  283. gam2
  284. elseiff "%OPT"=="set dat" then
  285. set ad%am=%@date[%_date]
  286. goto date
  287. elseiff "%OPT"=="enter d" then
  288. cls
  289. screen 12 25 Enter Date (MM-DD-YY):
  290. Input %%ad
  291. set ad%am=%@date[%ad]
  292. gam
  293. elseiff "%OPT"=="Plus da" then
  294. set ad%am=%@eval[%[ad%am] + 1]
  295. goto date
  296. elseiff "%OPT"=="Minus d" then
  297. set ad%am=%@eval[%[ad%am] - 1]
  298. goto date
  299. elseiff "%OPT"=="Plus we" then
  300. set ad%am=%@eval[%[ad%am] + 7]
  301. goto date
  302. elseiff "%OPT"=="Minus w" then
  303. set ad%am=%@eval[%[ad%am] - 7]
  304. goto date
  305. elseiff "%OPT"=="Plus 30" then
  306. set ad%am=%@eval[%[ad%am] + 30]
  307. goto date
  308. elseiff "%OPT"=="Minus 3" then
  309. set ad%am=%@eval[%[ad%am] - 30]
  310. goto date
  311. endiff
  312. gtm
  313.  
  314. :time
  315. spt 23 3 bri whi on blu  Time is now:  %_time
  316. spt 23 57 bri whi on blu Today is:  %_Date
  317. spt 5 27 bri whi on blu Time:           %@maketime[%[at%am]]
  318. echo off
  319. set OPT=
  320. set FAP=%AP%artime.mnu
  321. set OPT=%@SELECT[%fap,8,19,24,60 Time Menu]
  322. set OPT=%@SUBSTR[%opt,1,7]
  323. iff "%OPT"=="" then
  324. gam2
  325. elseiff "%OPT"=="set Tim" then
  326. set at%am=%@time[%_time]
  327. goto time
  328. elseiff "%OPT"=="clear t" then
  329. set at%am=
  330. goto time
  331. elseiff "%OPT"=="Enter T" then
  332. cls
  333. screen 12 25 Enter time (HH:MM:SS):
  334. Input %%at
  335. set at%am=%@time[%at]
  336. gam
  337. elseiff "%OPT"=="plus Ho" then
  338. iff %[at%am] GT 82800 .and. %[at%am] lt 86400 then
  339. set at%am=%@eval[(%[at%am] +3600) - 86400]
  340. goto time
  341. endiff
  342. set at%am=%@eval[%[at%am] + 3600]
  343. goto time
  344. elseiff "%OPT"=="plus Tw" then
  345. iff %[at%am] GT 43200 .and. %[at%am] lt 86400 then
  346. set at%am=%@eval[(%[at%am] +43200) - 86400]
  347. goto time
  348. endiff
  349. set at%am=%@eval[%[at%am] + 43200]
  350. goto time
  351. elseiff "%OPT"=="minus H" then
  352. iff %[at%am] LT 3600 .and. %[at%am] Gt 0 then
  353. set at%am=%@eval[86400 - (3600 - %[at%am])]
  354. goto time
  355. endiff
  356. set at%am=%@eval[%[at%am] - 3600]
  357. goto time
  358. elseiff "%OPT"=="Plus Mi" then
  359. iff %[at%am] GT 86340 .and. %[at%am] lt 86400 then
  360. set at%am=%@eval[(%[at%am] +60) - 86400]
  361. goto time
  362. endiff
  363. set at%am=%@eval[%[at%am] + 60]
  364. goto time
  365. elseiff "%OPT"=="Plus Te" then
  366. iff %[at%am] GT 85800 .and. %[at%am] lt 86400 then
  367. set at%am=%@eval[(%[at%am] +600) - 86400]
  368. goto time
  369. endiff
  370. set at%am=%@eval[%[at%am] + 600]
  371. goto time
  372. elseiff "%OPT"=="Minus M" then
  373. iff %[at%am] LT 60 .and. %[at%am] Gt 0 then
  374. set at%am=%@eval[86400 - (60 - %[at%am])]
  375. goto time
  376. endiff
  377. set at%am=%@eval[%[at%am] - 60]
  378. goto time
  379. elseiff "%OPT"=="Minus T" then
  380. iff %[at%am] LT 600 .and. %[at%am] Gt 0 then
  381. set at%am=%@eval[86400 - (600 - %[at%am])]
  382. goto time
  383. endiff
  384. set at%am=%@eval[%[at%am] - 600]
  385. goto time
  386. endiff
  387. gam2
  388.  
  389. :active
  390. iff "%[af%am]" != "N" then
  391. spt 6 43 bri whi on blu %[AF%am]
  392. elseiff "%[af%am]" == "N" then
  393. spt 6 43 bri whi on blu N
  394. endiff
  395. echo off
  396. set OPT=
  397. set FAP=%AP%aractive.mnu
  398. set OPT=%@SELECT[%fap,8,19,17,60 Active Menu]
  399. set OPT=%@SUBSTR[%opt,1,3]
  400. iff "%OPT"=="" then
  401. gam2
  402. elseiff "%OPT"=="tog" then
  403. iff "%[af%am]" != "A" then
  404. set af%am=A
  405. gam2
  406. else
  407. set af%am=N
  408. endiff
  409. gam2
  410. elseiff "%opt"=="EVE" then
  411. set af%am=2
  412. gam2
  413. elseiff "%OPT"=="Dai" then
  414. set af%am=D
  415. gam2
  416. elseiff "%OPT"=="Wee" then
  417. set af%am=W
  418. gam2
  419. elseiff "%OPT"=="Mon" then
  420. set af%am=M
  421. gam2
  422. endiff
  423. gtm
  424.  
  425. :run
  426. gosub display
  427. :reset
  428. set limit=13
  429. set ct=1
  430. spt 12 35 bri bli red on blu Q to quit
  431. spt 14 32 bri bli red on blu AUTOROBO RUNNING
  432. spt 0 32 bri yel on red AUTOROBO RUNNING
  433. :loop
  434. spt 23 3 bri whi on blu  Time is now:  %_time
  435. spt 23 57 bri whi on blu Today is:  %_Date
  436. screen 23 48
  437. Inkey /K"Q" /w %%_cmd
  438. If "%_cmd"=="Q" gtm
  439. if %ct GT %limit goto reset
  440. if "%[af%ct]" != "N" .and. "%[ad%ct]" == "%@date[%_DATE]" .and. %@time[%_time] GT 60 .and. %@time[%_time] GT %[at%ct] goto rr
  441. set ct=%@eval[%ct + 1]
  442. goto loop
  443. endiff
  444. gtm
  445.  
  446.  
  447. :RR
  448. iff "%ct"=="10" then
  449. spt 14 25 bri bli whi on red Q = Quit Robomail .qwk Import
  450. gosub choice
  451. cdd %rmd
  452. Robomail.exe /I /Q
  453. gosub advance
  454. goto reset
  455. elseiff "%ct"=="11" then
  456. spt 14 25 bri bli whi on red Q = Quit Del Dup to %DDUP
  457. gosub choice
  458. cdd %rcd
  459. dup "%ddup"
  460. gosub advance
  461. goto reset
  462. elseiff "%ct"=="12" then
  463. spt 14 25 bri bli whi on red Q = Quit Pack Robomail Operation
  464. gosub choice
  465. cdd %rmd
  466. Robomail.exe /A /R /P /V /Q
  467. gosub advance
  468. goto reset
  469. elseiff "%ct"=="13" then
  470. spt 14 25 bri bli whi on red Q = Quit Pack Robocomm Operation
  471. gosub choice
  472. cdd %rcd
  473. robocomm.exe /p
  474. gosub advance
  475. goto reset
  476. else
  477. cdd %rcd
  478. Robocomm.exe /A%[an%ct] %[r%ct]
  479. gosub advance
  480. endiff
  481. goto reset
  482.  
  483. :advance
  484. if "%[af%ct]"=="A" set af%ct=N
  485. if "%[af%ct]"=="D" set ad%ct=%@eval[%[ad%ct] + 1]
  486. if "%[af%ct]"=="2" set ad%ct=%@eval[%[ad%ct] + 2]
  487. if "%[af%ct]"=="W" set ad%ct=%@eval[%[ad%ct] + 7]
  488. if "%[af%ct]"=="M" set ad%ct=%@eval[%[ad%ct] + 30]
  489. set > c:\arlst.lst
  490. cls
  491. gosub display
  492. return
  493.  
  494. :choice
  495. spt 11 31 bri red on blu Press any key or
  496. spt 12 31 bri red on blu wait 10 seconds
  497. Inkey /W10 %%_cmd
  498. If "%_cmd"=="Q" gtm
  499. return
  500.  
  501.  
  502.